home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 1321.ZIP / LYNXT3.ARC / LYNXSEND.SLT < prev    next >
Text File  |  1989-02-05  |  901b  |  40 lines
  1. // LYNXSEND.SLT
  2. // ------------
  3. //
  4. // Lynx upload script for Telix 3.1x
  5. //
  6. // by Ross Beresford (February 1989)
  7. //
  8. //
  9. // This script will send files using the Lynx protocol; it uses Telix's
  10. // active port and baud rate to transmit the list of files specified in
  11. // the Telix upload command.
  12. //
  13. // This script should be specified as the "Upload Filename" field of an
  14. // External Protocol entry in the Telix configuration.
  15.  
  16.  
  17. str lynxargs[255] = "s /";        // specify fixed arguments here
  18.  
  19. main()
  20. {
  21.     str port[8], baud[8];
  22.  
  23.     // get Telix's port and baud rate as strings
  24.     itos(get_baud(), baud);
  25.     itos(get_port(), port);
  26.  
  27.     // build the Lynx argument list
  28.     strcat(lynxargs, port);
  29.     strcat(lynxargs, " /");
  30.     strcat(lynxargs, baud);
  31.     strcat(lynxargs, " ");
  32.     strcat(lynxargs, _ext_filespec);
  33.  
  34.     // run the Lynx program
  35.     run("lynx", lynxargs, 0); 
  36.  
  37.     // all done
  38.     alarm(1);
  39. }
  40.